home *** CD-ROM | disk | FTP | other *** search
/ ROM Magic / ROM Magic.iso / pc / data_11 / favorite.dir / 00034_Script_34 < prev   
Text File  |  1995-04-21  |  1KB  |  46 lines
  1. on startMovie
  2.   global slct,slcline, slFile, nGyou, myList, zmyList, INTRBAL
  3.   put INTRBAL/60 into field "TMP"
  4.   set the visibility of sprite 12 to FALSE
  5.   set the visibility of sprite 13 to FALSE
  6.   set the visibility of sprite 14 to FALSE
  7.   if myList = 0 then
  8.     put "" into myList
  9.     put "" into zmyList
  10.     set the visibility of sprite 11 to FALSE
  11.     set the visibility of sprite 6 to FALSE
  12.   end if
  13.   put myList into field "Selected"
  14.   put zmyList into field "zSelected"
  15. end startMovie
  16.  
  17. on stopMovie
  18.   global myList, zmyList
  19.   put field "Selected"  into myList 
  20.   put field "zSelected"  into zmyList
  21. end stopMovie
  22.  
  23. on slect
  24.   global slct,slcline, slFile, nGyou
  25.   if nGyou >= 12 then 
  26.     put "ﾉXﾉ篷CﾉhﾉVﾉ眷[ﾇﾕ12邁ﾇ局ｼﾇｼﾇﾝ" & RETURN after field "Selected"
  27.     beep 2
  28.     delete line 13 of field "Selected"
  29.     hilite line 125 of field "BOOKTITLE"
  30.     set the visibility of sprite 12 to FALSE
  31.     set the visibility of sprite 13 to FALSE
  32.   else
  33.     put slFile & RETURN after field "zSelected"
  34.     put slct & RETURN after field "Selected"
  35.     put 1 + nGyou into nGyou
  36.     ---hilite line nGyou of field "Selected"
  37.     set the visibility of sprite 14 to FALSE
  38.     set the visibility of sprite 6 to TRUE
  39.     set the visibility of sprite 11 to TRUE
  40.     set the visibility of sprite 13 to TRUE
  41.     set the visibility of sprite 12 to FALSE
  42.     hilite line 125 of field "BOOKTITLE"
  43.     hilite line nGyou of field "Selected"
  44.   end if
  45. end slect
  46.